home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtil-PCSide.lha / ATUtilities-PCSide / basic / rom.bas < prev    next >
Encoding:
BASIC Source File  |  2000-10-07  |  115 b   |  8 lines
  1. DEF SEG = &HF000
  2. OPEN "d:\rom.bin" for output as #1
  3. FOR i=0 TO 16384
  4.  ?#1,chr$(peek(i));
  5. NEXT
  6. CLOSE #1
  7. END
  8.